default tiskarna

Otázka od: Vlastimil Zdenek

27. 8. 2004 12:43

Zdravim vsechny,
muzete mi prosim poradit, jak zjistim index default tiskarny?
V moji aplikaci pouzivam toto:

.......
Tiskarna : String;
WBK := Excel.Workbooks;
......
        Tiskarna := Printers.Printer.Printers.Strings[0]; <== zde bych
potreboval DEFAULT tiskarnu stanice....
        Wokno := FindWindow(PChar(NewSoubor),nil);
        SetForegroundWindow(Wokno);
        WBK.PrintOut(1,1,1,True,Tiskarna,False,False,1);
......

Diky moc za vse
D5 Ent
Vlasta